﻿Public Class Form1
  Private Sub RadioButton1_CheckedChanged(
          ByVal sender As System.Object,
          ByVal e As System.EventArgs) _
          Handles RadioButton1.CheckedChanged
    ' imposta il colore di primo piano
    ' di TextBox1 a rosso
    Me.Label1.ForeColor = Color.Red
  End Sub

  Private Sub RadioButton2_CheckedChanged(
          ByVal sender As System.Object,
          ByVal e As System.EventArgs) _
          Handles RadioButton2.CheckedChanged
    ' imposta il colore di primo piano
    ' di TextBox1 a verde
    Me.Label1.ForeColor = Color.Green
  End Sub

  Private Sub RadioButton3_CheckedChanged(
          ByVal sender As System.Object,
          ByVal e As System.EventArgs) _
          Handles RadioButton3.CheckedChanged
    ' imposta il colore di primo piano
    ' di TextBox1 a blu
    Me.Label1.ForeColor = Color.Blue
  End Sub

  Private Sub RadioButton4_CheckedChanged(
          ByVal sender As System.Object,
          ByVal e As System.EventArgs) _
          Handles RadioButton4.CheckedChanged
    ' crea un oggetto di tipo Font, con
    ' un font di nome "Arial", la
    ' dimensione attuale e uno stile
    ' normale
    Dim f As New Font("Arial",
        Me.Label1.Font.Size,
        FontStyle.Regular)
    ' assegna l'oggetto f di tipo Font
    ' alla proprietà Font dell'etichetta
    Me.Label1.Font = f
  End Sub

  Private Sub RadioButton5_CheckedChanged(
          ByVal sender As System.Object,
          ByVal e As System.EventArgs) _
          Handles RadioButton5.CheckedChanged
    ' crea un oggetto di tipo Font, con
    ' un font di nome "Arial", la
    ' dimensione attuale e uno stile
    ' corsivo
    Dim f As New Font("Arial",
        Me.Label1.Font.Size,
        FontStyle.Italic)
    ' assegna l'oggetto f di tipo Font
    ' alla proprietà Font dell'etichetta
    Me.Label1.Font = f
  End Sub

  Private Sub RadioButton6_CheckedChanged(
          ByVal sender As System.Object,
          ByVal e As System.EventArgs) _
          Handles RadioButton6.CheckedChanged
    ' crea un oggetto di tipo Font, con
    ' un font di nome "Arial", la
    ' dimensione attuale e uno stile
    ' grassetto
    Dim f As New Font("Arial",
        Me.Label1.Font.Size,
        FontStyle.Bold)
    ' assegna l'oggetto f di tipo Font
    ' alla proprietà Font dell'etichetta
    Me.Label1.Font = f
  End Sub

  Private Sub RadioButton7_CheckedChanged(
        ByVal sender As System.Object,
        ByVal e As System.EventArgs) _
        Handles RadioButton7.CheckedChanged
    ' crea un oggetto di tipo Font, con
    ' un font di nome "Arial", una
    ' dimensione di 20 punti e lo stile
    ' sottolineato
    Dim f As New Font("Arial",
        Me.Label1.Font.Size,
        FontStyle.Underline)
    ' assegna l'oggetto f di tipo Font
    ' alla proprietà Font dell'etichetta
    Me.Label1.Font = f
  End Sub

  Private Sub RadioButton8_CheckedChanged(
          ByVal sender As System.Object,
          ByVal e As System.EventArgs) _
          Handles RadioButton8.CheckedChanged
    ' crea un oggetto di tipo Font, con
    ' un font di nome "Arial", una
    ' dimensione di 10 punti e lo stile
    ' attuale
    Dim f As New Font("Arial", 10,
        Me.Label1.Font.Style)
    ' assegna l'oggetto f di tipo Font
    ' alla proprietà Font dell'etichetta
    Me.Label1.Font = f
  End Sub

  Private Sub RadioButton9_CheckedChanged(
          ByVal sender As System.Object,
          ByVal e As System.EventArgs) _
          Handles RadioButton9.CheckedChanged
    ' crea un oggetto di tipo Font, con
    ' un font di nome "Arial", una
    ' dimensione di 14 punti e lo stile
    ' attuale
    Dim f As New Font("Arial", 14,
        Me.Label1.Font.Style)
    ' assegna l'oggetto f di tipo Font
    ' alla proprietà Font dell'etichetta
    Me.Label1.Font = f
  End Sub

  Private Sub RadioButton10_CheckedChanged(
          ByVal sender As System.Object,
          ByVal e As System.EventArgs) _
          Handles RadioButton10.CheckedChanged
    ' crea un oggetto di tipo Font, con
    ' un font di nome "Arial", una
    ' dimensione di 20 punti e lo stile
    ' attuale
    Dim f As New Font("Arial", 20,
        Me.Label1.Font.Style)
    ' assegna l'oggetto f di tipo Font
    ' alla proprietà Font dell'etichetta
    Me.Label1.Font = f
  End Sub

End Class
